home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Util / Sd-Sm / ShowPages 1.4.1 ƒ / ShowPages 1.4.1 / ShowPages 1.4.1.rsrc / TEXT_131_section.txt < prev    next >
Encoding:
Text File  |  1993-05-14  |  806 b   |  27 lines
  1. %!
  2. /-showpage /showpage load def
  3. /binddefinition{dup where{exch 2 copy get bind put}{ undefined }ifelse} def  
  4. /showpage{
  5. initgraphics
  6. /Times-Roman findfont 6 scalefont setfont
  7. 0 setlinewidth
  8. % X Axis
  9. newpath
  10. 0 2 600{50 moveto 0 -3 rlineto}for stroke
  11. 0 10 600{50 moveto 0 -5 rlineto} for stroke
  12. 0 20 600{dup 50 moveto 0 -7 rlineto 0 -9 rmoveto 3 string cvs show } for
  13. 0 50 moveto 600 50 lineto stroke
  14. [1 1] 1 setdash
  15. 80 40 600{50 moveto 0 950 rlineto}for stroke
  16. % Y Axis
  17. [] 0 setdash
  18. 0 2 1000{50 exch moveto -3 0 rlineto}for stroke
  19. 0 10 1000{50 exch moveto -5 0 rlineto}for stroke
  20. 0 20 1000{dup 50 exch moveto -7 0 rlineto -14 0 rmoveto 4 string cvs show}for
  21. 50 0 moveto 50 1000 lineto stroke
  22. [1 1] 1 setdash
  23. 80 40 1000{50 exch moveto 550 0 rlineto}for stroke
  24. -showpage
  25. } bind def
  26. /showpage binddefinition
  27.